home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / BOOKS / BKSHELF.DIR / 00045_soundTimer --.ls < prev    next >
Encoding:
Text File  |  1996-07-19  |  292 b   |  17 lines
  1. global paused, timerList, timerCount
  2.  
  3. on exitFrame
  4.   if paused then
  5.     idle()
  6.     go(the frame)
  7.   else
  8.     idle()
  9.     if the timer >= (60 * getAt(timerList, timerCount)) then
  10.       set timerCount to timerCount + 1
  11.       go(the frame + 1)
  12.     else
  13.       go(the frame)
  14.     end if
  15.   end if
  16. end
  17.